home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / dev / lang / uc_0_30.lha / u / tca / tc0017.ua < prev    next >
Text File  |  1996-10-30  |  499b  |  47 lines
  1. `**********************
  2. `* P R O J E C T  < U >
  3. `*
  4. `* Author and copyright
  5. `* (c) 1996
  6. `* Paul van der Valk
  7. `*
  8. `* file: tc0017.ua
  9. `*
  10. `* Tests WHILE instruction
  11. `*
  12. `* output should read:
  13. `*   "1"
  14. `*   "2"
  15. `*   "4"
  16. `*   "8"
  17. `*   "16"
  18. `*   "32"
  19. `*   "64"
  20. `*   "128"
  21. `*   "256"
  22.  
  23. #1 .H 2 0 0 0
  24. #2 .M "tc0017" 20 10 0 0
  25.  
  26. #10 .V "value"
  27.  
  28. #20 >22 .a 10 21
  29. #21 .n 1
  30.  
  31. #22 .w 23 30
  32. #23 @le 24 25
  33. #24 .v 10
  34. #25 .n 256
  35.  
  36. #30 >32 .c 4 31
  37. #31 .v 10
  38.  
  39. #32 >33 .c 3 0
  40.  
  41. #33 .a 10 34
  42. #34 @pl 35 36
  43. #35 .v 10
  44. #36 .v 10
  45.  
  46.  
  47.